home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs25.d81 / systosid.prg (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  1KB  |  14 lines
  1. 5 IFA=1THEN45:POKE55,0:POKE56,117:CLR
  2. 10 POKE53281,0:POKE53280,0:DV=PEEK(186)
  3. 20 PRINT"[159][147]    - 30120 TO SID[146] - BY: GULLIBLE[146] -":OPEN1,0
  4. 30 PRINT" ENTER DRIVE #:"DV;"[157][157]";:INPUT#1,D$:D=VAL(D$):POKE679,D:PRINT:CLOSE1
  5. 35 OPEN1,0:PRINT" ENTER 30120 FILENAME:";:INPUT#1,F$:PRINT:PRINT" LOADING..."
  6. 40 A=1:LOADF$,PEEK(679),1
  7. 45 PRINT" ENTER .MUS FILENAME: ";:INPUT#1,F$:PRINT:PRINT" SAVING...":CLOSE1
  8. 55 PRINT"[144]POKE 43,54:POKE44,125:POKE45,"PEEK(174)":POKE46,"PEEK(175)
  9. 60 PRINT"SAVE"CHR$(34)F$".MUS"CHR$(34)","PEEK(679)
  10. 65 PRINT"?"CHR$(34)"[159][147] FILE CONVERTED!"CHR$(34);
  11. 66 PRINT":P[207]43,1:P[207]44,8:P[207]45,107:P[207]46,10:CLR:RUN75"
  12. 70 POKE631,13:POKE632,13:POKE633,13:POKE198,3:PRINT"[145][145][145][145][145][145][145][145][145][145][145][145][145]":END
  13. 75 PRINT:OPEN1,0:PRINT" ANOTHER? Y/N: Y[157]";:INPUT#1,A$:PRINT:IFA$="Y"THENRUN35
  14.